home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 5 / chrpro3.zip / MCINSCRN.CMD < prev    next >
OS/2 REXX Batch file  |  1991-01-21  |  4KB  |  146 lines
  1. * Program MCINSCRN - Processes entry of contributions for one envelope
  2. Store 'Y' to resp
  3. Store 0.00 to OCATEGT1
  4. Store 0.00 to OCATEGT2
  5. Store 0.00 to OCATEGT3
  6. Store 0.00 to OCATEGT4
  7. Store 0.00 to OCATEGT5
  8. Store 0.00 to OCATGTX4
  9. Store '- ' to SA
  10. Store F to reentry
  11. If val($(OCATEG&OT,FL+1,8))<>0
  12.   Accept 'Contributions already entered. Enter additional amounts? ' to resp
  13.   Store T to valid2
  14.   Do while valid2
  15.     Do CASE
  16.     CASE !(RESP)='N'
  17.       STORE F TO VALID2
  18.     CASE !(resp)='Q'
  19.       Store F to valid2
  20.       Store F to continu
  21.     CASE !(resp)='Y'
  22.       Store T to reentry
  23.       Store '0' to N
  24.       Do while N<>OT
  25.         Store str(val(N)+1,1) to N
  26.         Store $(OCATEG&N,FL+1,8) to OCATEGM
  27.         If val(OCATEGM)>0 .and. val(OCATEGM)<99999
  28.           Store &OCATEGM to OCATGTX&N
  29.         else
  30.           Store 0.00 to OCATGTX&N
  31.         endif
  32.         STORE F TO VALID2
  33.       enddo
  34.     OTHERWISE
  35.       Accept 'Illegal entry. Please enter again ' to RESP
  36.     ENDCASE
  37.   enddo
  38. endif
  39. If !(resp)='Y'
  40.  Store T to valid2
  41.  Do while valid2
  42.   @ 5,0
  43.   @ 6,0
  44.   If reentry
  45.     @ 6,0 say ' * * *  ENTERING ADDITIONAL AMOUNTS TO ENVELOPE NUMBER '+ENVNO
  46.   else
  47.     @ 6,0 say '        ENTER OFFERINGS FOR ENVELOPE NUMBER '+ENVNO
  48.   endif
  49.   @ 7,0
  50.   Store '1' to N
  51.   Do while N<>OT
  52.     Store val(N)+7 to XX
  53.     @ XX,0 SAY '            '+OCATNAM&N get OCATEGT&N
  54.     IF REENTRY
  55.       @ XX,40 SAY '  Previous '+OCATNAM&N+str(OCATGTX&N,8,2)
  56.     ENDIF
  57.     STORE str(val(N)+1,1) to N
  58.   enddo
  59.   If CSA<>' '
  60.     @ XX,34 get SA
  61.   endif
  62.   READ
  63.   Store OCATEGT1+OCATEGT2+OCATEGT3+OCATEGT4 to OCATEGT&OT
  64.   @ xx+1,27 say '------'
  65.   @ XX+2,0 say '                 TOTAL   '+str(OCATEGT&OT,8,2)
  66.   ?
  67.   Accept ' IS TOTAL CORRECT? ' to resp
  68.   Store T to valid3
  69.   Do while valid3
  70.     DO CASE
  71.     CASE !(RESP)='Q'
  72.       Store F to valid2
  73.       Store F to valid3
  74.     CASE !(resp)='Y'
  75.       Store '0' to N
  76.       Do while N<>OT
  77.         Store str(val(N)+1,1) to N
  78.         Store OCATEGT&N+OCATPT&N to OCATPT&N
  79. * NOTE: Only the newly entered values on a reentry are added to the page totals
  80. *     (OCATPT&N). The previous amount would probably appear with another total.
  81.         If reentry
  82.           * Add new entry values to old for this envl number
  83.           Store OCATEGT&N+OCATGTX&N to OCATEGT&N
  84.         endif
  85.       enddo
  86.       Release REENTRY
  87.       If ENVNUMBX='0'
  88.         Store EC+1 to EC
  89.         Store (EC*4)-2 to N
  90.         Store $(envnbrs,1,N-1)+str(envnumb,4,0) to envnbrs
  91.       else
  92.         Store (EC*4)-2 to N
  93.         Store $(envnbrs,1,N-1)+str(envnumb,4,0)+$(envnbrs,N,242-N) to envnbrs
  94.         Store EC+1 to EC
  95.       endif
  96.       Store '0' to N
  97.       Do while N<>OT
  98.         STORE STR(VAL(N)+1,1) TO N
  99.     Replace OCATEG&N with $(OCATEG&N,1,FL)+STR(OCATEGT&N,8,2)+$(OCATEG&N,SS,SL)
  100.       ENDDO
  101.       If CSA<>' '
  102.        If ocategt4<>0
  103.         Store $(sa,1,1) to SA
  104.         Do while @(SA,CSA)=0
  105.           ? 'Invalid Special Account character. [',CSA,'].'
  106.           Accept 'Please enter another, or "-" for General Account ' to SA
  107.         enddo
  108.         Replace SPACCOUNTS with $(SPACCOUNTS,1,WKNUMB)+SA+;
  109. $(SPACCOUNTS,WKNUMB+2,WKNUMMAX-WKNUMB)
  110.         Select secondary
  111.         Store '$~' to N
  112.         Find &N
  113.         If #=0
  114.           Append blank
  115.         endif
  116.         Replace cdirindex with '$'+SA+'.'+$(wkname,1,5)+str(envnumb,4)
  117.         Replace spact with str(OCATEGT4-OCATGTX4,11,2)
  118.         SELECT PRIMARY
  119.        endif
  120.       ENDIF
  121.       Store F to valid3
  122.       Store F to valid2
  123.     CASE !(resp)='N'
  124.       Store F to valid3
  125.       Store 0.00 to OCATEGT&OT
  126.     OTHERWISE
  127.       Accept 'Invalid entry. ' to resp
  128.     endcase
  129.   enddo
  130. enddo
  131. endif
  132. RETURN
  133. to OCATEGT4
  134. Store 0.00 to OCATEGT5
  135. Store '-' to SA
  136. Store F to reentry
  137. If val($(OCATEG&OT,FL+1,8))<>0
  138.   Accept 'Contributions already entered. Enter additional amounts? ' to resp
  139.   Store T to valid2
  140.   Do while valid2
  141.     Do CASE
  142.     CASE !(RESP)='N'
  143.       STORE F TO VALID2
  144.     CASE !(resp)='Q'
  145.       Store F to valid2
  146.       S